Libris Britannia 4/science library(b).zip/science library(b)/PROGRAMM/DB_CLIPP/0828.ZIP/DEXPERT.ZIP/PROMPTS.FMT

Text File | 1987-02-05 | 2KB | 55 lines

@  0, 23  SAY "Enter Prompt Text Below"
@ 1,0 say "P1"
@ 1,3 get aa->prompt1
@  2,  0  SAY "P2"
@  2,  3  GET  aa->PROMPT2
@  3,  0  SAY "P3"
@  3,  3  GET  aa->PROMPT3
@  4,  0  SAY "P4"
@  4,  3  GET  aa->PROMPT4
@  6,  0  SAY "If Response is:->"
@  6, 17  GET  aa->RESPONSE1
@  6, 20  SAY "-> Go to Screen Number:"
@  6, 44  GET  aa->LINKER1
@  7,  2  SAY "If Response is:->"
@  7, 19  GET  aa->RESPONSE2
@  7, 22  SAY "---->Go to Screen Number:"
@  7, 48  GET  aa->LINKER2
@  8,  4  SAY "If Response is->"
@  8, 20  GET  aa->RESPONSE3
@  8, 23  SAY "-------> Go to Screen Number:"
@  8, 53  GET  aa->LINKER3
@  9,  6  SAY "If Response is->"
@  9, 22  GET  aa->RESPONSE4
@  9, 25  SAY "---------->Go to Screen Number:"
@  9, 57  GET  aa->LINKER4
@ 10,  8  SAY "If Response is->"
@ 10, 24  GET  aa->RESPONSE5
@ 10, 27  SAY "-----------> Go to Screen Number:"
@ 10, 61  GET  aa->LINKER5
@ 11, 10  SAY "If Response is->"
@ 11, 26  GET  aa->RESPONSE6
@ 11, 29  SAY "------------->Go to Screen Number:"
@ 11, 64  GET  aa->LINKER6
@ 12, 12  SAY "If Response is->"
@ 12, 28  GET  aa->RESPONSE7
@ 12, 31  SAY "--------------> Go to screen Number:"
@ 12, 68  GET  aa->LINKER7
@ 13, 14  SAY "If Response is->"
@ 13, 30  GET  aa->RESPONSE8
@ 13, 33  SAY "----------------> Go to Screen Number:"
@ 13, 72  GET  aa->LINKER8
@ 14, 16  SAY "If Response is->"
@ 14, 32  GET  aa->RESPONSE9
@ 14, 35  SAY "------------------> Go to Screen Number:"
@ 14, 76  GET  aa->LINKER9
@ 15, 18  SAY "If Response is->"
@ 15, 34  GET  aa->RESPONSE10
@ 15, 37  SAY "------------->Go to Screen Number:"
@ 15, 71  GET  aa->LINKER10
@ 17, 31  SAY "Code for Text Color:"
@ 17, 52  GET  aa->TOPCOLOR
@ 19, 29  SAY "Code for Prompt Color:"
@ 19, 52  GET  aa->BELOWCOLOR
@ 22,35 say "Edit Screen"
@ 24,0 say "Screen Number "+ltrim(str(recno()))